Option Explicit
Sub C_Sample038()
    Dim mySht As Worksheet
    Set mySht = Worksheets(1)           'Ng
    With mySht
     .Visible = xlSheetHidden           'ܡAiѨϥΪ̳]wA
    '.Visible = xlSheetVeryHidden       'ܡAiѨϥΪ̳]wA
    MsgBox "wܤFAsܥXӡC"
    .Visible = xlSheetVisible               '
    End With
    Set mySht = Nothing                 '
End Sub

